home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Prg
/
DEPAL.ZIP
/
SOURCE.ZIP
/
LOADFORM.FRM
< prev
next >
Wrap
Text File
|
1995-03-13
|
3KB
|
120 lines
VERSION 2.00
Begin Form LoadForm
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "File Name"
ClientHeight = 3375
ClientLeft = 2910
ClientTop = 1500
ClientWidth = 4080
ControlBox = 0 'False
Height = 3780
Left = 2850
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3375
ScaleWidth = 4080
Top = 1155
Width = 4200
Begin CommandButton comCancel
Caption = "Cancel"
Height = 375
Left = 2880
TabIndex = 5
Top = 2880
Width = 1035
End
Begin CommandButton comAccept
Caption = "Accept"
Height = 375
Left = 120
TabIndex = 4
Top = 2880
Width = 1035
End
Begin FileListBox File
Height = 1785
Left = 2160
Pattern = "*.bmp;*.dib"
TabIndex = 2
Top = 420
Width = 1755
End
Begin DirListBox Direct
Height = 1830
Left = 120
TabIndex = 1
Top = 420
Width = 1935
End
Begin DriveListBox Drive
Height = 315
Left = 120
TabIndex = 0
Top = 60
Width = 3795
End
Begin Label Label
BorderStyle = 1 'Fixed Single
Height = 315
Left = 120
TabIndex = 3
Top = 2400
Width = 3795
End
End
Option Explicit
Sub accept ()
Drivename = Drive.Drive
Pathname = Direct.Path
Filepath = Label.Caption
FileName = File.FileName
Success = True
Unload Me
End Sub
Sub comAccept_Click ()
Call accept
Unload Me
End Sub
Sub comCancel_Click ()
Success = False
Unload Me
End Sub
Sub Direct_Change ()
File.Path = Direct.Path
End Sub
Sub Drive_Change ()
Direct.Path = Drive.Drive
End Sub
Sub File_Click ()
Dim n As Integer
Dim s As String
n = Len(File.Path)
s = Mid$(File.Path, n, 1)
If s = "\" Then
Label.Caption = File.Path & File.FileName
Else
Label.Caption = File.Path & "\" & File.FileName
End If
End Sub
Sub File_DblClick ()
Call accept
End Sub
Sub Form_Load ()
Label.Caption = FileName
Drive.Drive = Drivename
Direct.Path = Pathname
End Sub